home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / misc / math / Geometry_132.lha / English < prev    next >
Encoding:
Text File  |  1998-02-06  |  2.2 KB  |  103 lines
  1. (set #progname "Geometry V1.3")
  2.  
  3. ; --- Kickstart-Version überprüfen ---
  4. (set vernum (getversion))
  5. (set kickstart (/ vernum 65536))
  6. (set #badkicktxt
  7.     (cat "\n" #progname "\n\nrequires Amiga-OS 2.04 (V37) or higher!\n\n"
  8.     "Your kickstart version is " kickstart ".")
  9. )
  10.  
  11. (if (< kickstart 37)
  12.     (
  13.     (message (#badkicktxt))
  14.     (abort #progname ": Installation aborted!")
  15.     )
  16. )
  17.  
  18. ;  --- Libraries überprüfen ---
  19. (set #mathlib1 "libs:mathieeedoubbas.library")
  20. (set #mathlib2 "libs:mathieeedoubtrans.library")
  21. (set #nomathlibstxt "\nYou need the following libraries:\n\n")
  22. (if (not (exists #mathlib1))
  23.     (message (cat #nomathlibstxt #mathlib1 "\n" #mathlib2))
  24. )
  25.  
  26. ;-----------------------------------------------------
  27.  
  28. (set #help1
  29.     (cat "Enter the path to put the program\n"
  30.     #progname ". No new drawer is created!")
  31. )
  32.  
  33. (set #getdesttxt
  34.     (cat "\n" #progname " Installation\n"
  35.     "Select destination path for the program.\n"
  36.     "No new drawer is created!"
  37.     )
  38. )
  39.  
  40. (set #destpath
  41.     (askdir
  42.         (prompt #getdesttxt)
  43.         (help #help1)
  44.         (default ":")
  45.     )
  46. )
  47.  
  48. ; --- copy prg+icon ---
  49.  
  50. (if (not (exists (cat #destpath "Geometry.info")))
  51.             (copyfiles
  52.                 (source "")
  53.                 (dest #destpath)
  54.                 (pattern "Geometry.info")
  55.             )
  56. )
  57.  
  58. (copyfiles
  59.     (source "")
  60.     (dest #destpath)
  61.     (pattern "Geometry")
  62. )
  63.  
  64. ; --- Guide kopieren ---
  65.  
  66. (set #helppath
  67.     (askdir
  68.         (prompt "Select a path for the AmigaGuide documentation:")
  69.         (help @askdir-help)
  70.         (default #destpath)
  71.     )
  72. )
  73.  
  74. (copyfiles
  75.     (source "")
  76.     (dest #helppath)
  77.     (pattern "Geometry.guide")
  78.     (help @copyfiles-help)
  79. )
  80. (copyfiles
  81.     (source "")
  82.     (dest #helppath)
  83.     (pattern "Geometry.guide.info")
  84.     (help @copyfiles-help)
  85. )
  86.  
  87. (
  88.     (message
  89.         (cat "\n" #progname " is SHAREWARE!\n"
  90.         "»" #progname "is SHAREWARE! If you like this program\n"
  91.         "send DM 8.- or US$ 5.- or öS 60.- or Lit. 8000.-\n"
  92.         "to F. Agnoli, Schabs 143, I-39040 NATZ-SCHABS, Italy.\n"
  93.         "E-Mail: Francesco.Agnoli@gmx.net")
  94.     )
  95. )
  96.  
  97. (message "\n»Geometry 1.3« installation complete!"
  98.          "\n"
  99.          "\nYou find now the program"
  100.          "\nin the directory »" #destpath "«.")
  101. (exit (quiet))
  102.  
  103.